﻿Public Class Formulario1
    'Realizamos validación de un nombre, que no puede incluir números ni caracteres especiales.
    'esto lo haremos en una biblioteca de clases.
  
    Private Sub txt_1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_1.TextChanged
        Dim indice, indice2 As Integer
        Dim caracter As Char
        Dim cadenaRecortada As String = ""
        For indice = 1 To txt_1.Text.Length - 1
            caracter = GetChar(txt_1.Text, indice)
            If IsNumeric(caracter) Then
                MsgBox("Nombre incorrecto, sólo puede contener letras.")
                cadenaRecortada = txt_1.Text.ToCharArray()
                txt_1.Text = ""
            End If

        Next
        For indice2 = 1 To cadenaRecortada.Length - 2

            txt_1.Text = txt_1.Text & cadenaRecortada.ToCharArray()(indice)
        Next

    End Sub
End Class
